;TAMORET - BY MICHAEL J. LYONS - COPYRIGHTED 1988
;cmd file

;flags:
;flag1 dog ready to flee
;flag2 kerosene lamp is burning
;flag3 gas pumps are working
;flag4 gas lamp is burning
;flag5 kerosene is in the lamp
;flag6 gas is in the lamp
;flag7 sheriff is active
;flag8 darkness has fallen
;flag9 zombies are active
;flag10 zombies in legal room
;flag11 a beer is has been served
;flag12 the beer has been drunk
;flag13 key to the jail can be located
;flag14 the sheriff is in the cell
;flag15 the cell door is unlocked
;flag16 Amens are being said
;flag17 light messages to be printed
;flag18 vampire is active
;flag19 first number of safe combination has been found
;flag20 second number of safe combination has been found
;flag21 third number of safe combination has been found
;flag22 vault door is open
;flag23 gun is loaded with silver bullet
;flag24 coins have been spent
;flag25 werewolf is active
;flag26 spider is active
;flag27 spider begins following player
;flag28 scepter is now free
;flag29 fly begins to follow player
;flag30 fly is in web and spider is alive
;flag31 lamp has blown up
;flag32 gas lamp is at gate
;flag33 gate has been blown up
;flag34 journal first page has been read
;flag35 journal second page has been read
;flag36 journal third page has been read
;flag37 journal fourth page has been read
;flag38 secret passage is closed
;flag39 request made to get pool ball
;flag40 trunk has been opened
;flag41 shadow is part of the group
;flag42 shadow is bound by talisman
;flag43 lab is unsafe to enter
;flag44 console is unlocked
;flag45 generator is on
;flag46 archway is on
;flag47 purge pump is on
;flag48 nine ball off table
;flag49 pool ball off table
;flag50 death by the stones in wrong place
;flag51 orb is in hole
;flag52 console is protected by ring
;flag53 on swingset
;flag54 amulet not out of tree
;flag55 following rat
;flag56 start to follow rat
;flag57 cross in placed
;flag58 knob on door
;flag59 scepter in place
;flag60 amulet in place
;flag61 talisman in place
;flag62 shadow destroyed
;flag63 ring in place
;flag64 shadow finished pep talk
;flag65 archway has been taken away
;flag66 white shadow resurrection message
;flag71 vagrant message
;flag72 braindead message
;flag73 braindead groupmember
;flag74 merchant message
;flag75 adventurer message
;flag76 resident message
;flag77 mourner message
;flag78 drunk message
;flag79 white shadow no more resurrections
;flag80 console examined
;flag81 vial found
;flag82  rat in hiding

;Counters
;counter1 daylight counter
;counter2 darkness counter
;counter3 dog is fleeing
;counter4 fight timer in bar before sheriff shows
;counter5 timer to get sheriff key
;counter6 timer to track spider following
;counter7 timer to track fly following
;counter8 purge pump timer
;counter9 rat timer

;variables
;variable1 kerosene lamp burn time
;variable2 gas lamp burn time
;variable3 times amen was shouted
;variable4 times statue can be seen before attack
;variable5 counter for number of swings

COMMAND ANY                   
NewLife                       ;Routine to set daylight-dark counters
AtLocation      2             ;in start position
TurnCounterOn   1             ;Daylight counter on
TurnCounterOff  2             ;Darkness counter off
TurnFlagON      7             ;sheriff activated
TurnFlagOFF     8             ;darkness flag turn off
TurnFlagOFF     9             ;zombies off
TurnFlagOFF     17            ;can print daylight, darkness message
PrintMessage    35            ;new day
BlankLine
END_COMMAND

COMMAND ANY
AtLocation        27          ;in church
OR
AtLocation        56          ;behind pulpit
PutInCurrentRoom  205         ;put pulpit in room
END_COMMAND

COMMAND ANY
AtLocationGT      59          ;in park
AtLocationLT      74          ;in park
NOT AtLocation    72          ;not on mound
NOT AtLocation    69          ;not at fountain
NOT AtLocation    70          ;not at statue
NOT AtLocation    62          ;not at mound
NOT AtLOcation    64          ;not at playground
NOT AtLocation    65          ;not at statue
PutInCurrentRoom  371         ;put tree here
END_COMMAND

COMMAND ANY
AtLocationGT      73          ;by the lake
AtLocationLT      79          ;by the lake
NOT AtLocation    75          ;not in house
PutInCurrentRoom  372         ;put lake here
END_COMMAND

COMMAND ANY
AtLocation        105         ;at back gate
FlagOFF           33          ;gate not blown yet
PutInCurrentRoom  373         ;put padlock here
END_COMMAND

COMMAND ANY
AtLocation        106         ;in kitchen
PutInCurrentRoom  334         ;put dirty dishes here
END_COMMAND

COMMAND ANY
AtLocation        108         ;at back porch
PutInCurrentRoom  299         ;put locked door here
END_COMMAND

COMMAND ANY
AtLocation        115         ;at front door
PutInCurrentRoom  299         ;put lock door here
END_COMMAND

COMMAND ANY
AtLocation        123         ;in bedroom
PutInCurrentRoom  230         ;put dresser here
END_COMMAND

COMMAND ANY
AtLocation        126         ;in closet
PutInCurrentRoom  380         ;put clothes here
END_COMMAND

COMMAND ANY
AtLocation        127         ;in attic
PutInCurrentRoom  359         ;put cobwebs here
END_COMMAND

COMMAND ANY
AtLocation        128         ;at front gate
PutInCurrentRoom  373         ;put padlock here
END_COMMAND

COMMAND ANY
AtLocation        130         ;in basement
PutInCurrentRoom  203         ;put crate here
END_COMMAND

COMMAND ANY
AtLocation        151         ;in delivery room
PutInCurrentRoom  203         ;put crates here
END_COMMAND

COMMAND ANY
AtLocation        132         ;in laundry
PutInCurrentRoom  238         ;put table here
PutInCurrentRoom  380         ;put clothes here
END_COMMAND

COMMAND ANY
AtLocation        133         ;in office
PutInCurrentRoom  244         ;put cabinet here
END_COMMAND

COMMAND ANY
AtLocation        107         ;in pantry
PutInCurrentRoom  204         ;put shelf in here
END_COMMAND

COMMAND ANY
FlagOFF           66          ;white shadow message not given yet
PrintMessage      199         ;white shadow resurrect message
BlankLine
TurnFlagON        66          ;do away with this
END_COMMAND

COMMAND ANY
TurnsEquals       3           ;3 turns has passed
PrintMessage      200         ;1st black warning
BlankLine
END_COMMAND

COMMAND ANY
TurnsEquals       103         ;103 turns has passed
PrintMessage      201         ;second warning given
BlankLine
END_COMMAND

COMMAND ANY
TurnsEquals       209         ;209 turns has passed 
PrintMessage      202         ;3rd warning given
BlankLine
END_COMMAND

COMMAND ANY
TurnsEquals       316         ;316 turns has passed
PrintMessage      203         ;4th warning given
BlankLine
END_COMMAND

COMMAND ANY
Present           312         ;vagrant is here
FlagON            71          ;vagrant has given message
PrintMessage      205         ;vagrant moans
BlankLine
END_COMMAND

COMMAND ANY
FlagOFF           71          ;vagrant has not spoke yet
Present           312         ;vagrant is here
PrintMessage      204         ;vagrant message
BlankLine
TurnFlagON        71          ;disable this command
END_COMMAND

COMMAND ANY
Present           331         ;braindead is here
FlagOFF           72          ;first meeting with braindead
PrintMessage      206         ;braindeads speech
BlankLine
TurnFlagON        72          ;disable this command
AddToGroup        331         ;make braindead a groupmember
TurnFlagON        73          ;now a groupmember
END_COMMAND

COMMAND ANY
Present           331         ;braindead is here
FlagON            73          ;braindead is a groupmember
AtLocation        142         ;at archway
PrintMessage      207         ;braindead leaves
BlankLine
RemoveFromGroup   331         ;remove braindead from group
SendToRoom        331  141    ;put braindead in control room
TurnFlagOFF       73          ;braindead not groupmember
END_COMMAND

COMMAND ANY
Present           331         ;braindead is here
FlagOFF           73          ;braindead not a groupmember
FlagON            72          ;has printer first message
PrintMessage      208         ;braindead hurry message
BlankLine
END_COMMAND

COMMAND ANY
Present           343         ;town merchant is here
FlagON            74          ;has meet before
PrintMessage      210         ;merchant sighs
BlankLine
END_COMMAND

COMMAND ANY
Present           343         ;town merchant here
FlagOFF           74          ;first meeting
PrintMessage      209         ;merchant warning
BlankLIne
TurnFlagON        74          ;disable this message
END_COMMAND

COMMAND ANY
FlagON            75          ;has already met adventurer
Present           344         ;adventurer is here
PrintMessage      211         ;adventure sobs
BlankLine
END_COMMAND

COMMAND ANY
Present           344         ;adventurer is here
FlagOFF           75          ;first meeting
PrintMessage      212         ;adventurer tells his story
BlankLine
TurnFlagON        75          ;disable this command
END_COMMAND

COMMAND ANY
Present           345         ;resident is here
FlagON            76          ;has meet resident before
PrintMessage      213         ;resident mumbles
BlankLine
END_COMMAND

COMMAND ANY
Present           345         ;resident is here
FlagOFF           76          ;first meeting
PrintMessage      214         ;resident tells about town
TurnFlagON        76          ;disable this command
BlankLine
END_COMMAND

COMMAND ANY
Present           346         ;mourner is here
FlagON            77          ;has met mourner before
PrintMessage      215         ;mourner cries
BlankLine
END_COMMAND

COMMAND ANY
Present           346         ;mourner is here
FlagOFF           77          ;has not met mourner before
PrintMessage      216         ;mourner tells of death of husband
BlankLine
TurnFlagON        77          ;disable this command
END_COMMAND

COMMAND ANY
Present           347         ;drunk is here
FlagOn            78          ;drunk has been met before
PrintMessage      217         ;drunk rambles
BlankLine
END_COMMAND

COMMAND ANY
Present           347         ;drunk is here
FlagOFF           78          ;first meeting
PrintMessage      218         ;incoherent story
TurnFlagON        78          ;disable this command
BlankLine
END_COMMAND

AtLocationGT      48          ;sheriff deactivator
TurnFlagOFF       7           ;sheriff deactivated
END_COMMAND

COMMAND ANY
AtLocationGT      105         ;light deactivator
TurnFlagON        17          ;suppress light messages
END_COMMAND

COMMAND ANY
AtLocationGT      56          ;zombie deactivator
TurnFlagOFF       9           ;zombies stopped
TurnFlagON        10          ;zombie deactivated
END_COMMAND

COMMAND ANY
AtLocationLT      49          ;sheriff activator
TurnFlagON        7           ;sheriff active
END_COMMAND

COMMAND ANY
AtLocationLT      106         ;light activator
TurnFlagOFF       17          ;allow light messages
END_COMMAND

COMMAND ANY
AtLocationLT      47          ;zombie activator
FlagON            8           ;It is dark
TurnFlagON        9           ;zombie activated
TurnFlagOFF       10          ;zombies activated
END_COMMAND

COMMAND ANY                   
CounterEquals    1    185     ;CHECKS DAYLIGHT COUNTER
FlagOFF          17           ;ok to print
PrintMessage     2            ;PRINTS SUNSET MESSAGE
BlankLine
END_COMMAND

COMMAND ANY                   
CounterEquals    2    85      ;CHECKS DARKNESS COUNTER
FlagOFF          17           ;ok to print
PrintMessage     4            ;SUNRISE MESSAGE
BlankLine
END_COMMAND

COMMAND ANY                    
CounterGT        1     200    ;Check for daylight end
TurnCounterOff   1            ;turn daylight counter off
TurnCounterOn    2            ;turn darkness counter on
TurnFlagON       8            ;turn darkness flag on
FlagOFF          17           ;ok to print
PrintMessage     3            ;Darkness has fallen
BlankLine
END_COMMAND

COMMAND ANY                   
CounterGT         2    100    ;Check for darkness end
TurnCounterOff    2           ;darkness counter off
TurnCounterOn     1           ;daylight counter on
TurnFlagOFF       8           ;darkness flag off
TurnFlagOFF       9           ;zombies deactivated
TurnFlagON        10          ;zombie deactivator
FlagOFF           17          ;ok to print
PrintMessage      1           ;Sun has risen
BlankLine
END_COMMAND

COMMAND ANY
FlagON            9           ;zombies can attack
FlagON            2           ;lamp is lit
FlagOFF           10          ;zombies in legal room
Chance            25          ;25% chance for sighting
PrintMessage      32          ;Sightings message
BlankLine
END_COMMAND

COMMAND ANY
FlagON            9           ;random sightings of creatures in dark
FlagOFF           2           ;lamp is unlit
FlagOFF           10          ;in legal room
PrintMessage      36          ;moon shine message
BlankLine                 
PrintMessage      33          ;sighting message
BlankLine
END_COMMAND

COMMAND ANY
FlagON            9           ;death by night stalker
FlagOFF           2           ;lamp is unlit
FlagOFF           10          ;in legal room
Chance            5           ;5% chance of zombie attacking
PrintMessage      34          ;death by zombies
SendAllToRoom     42          ;put all treasure in cemetery 
MinusScore        50          ;lose points for dumb play
KillPlayer                    ;restart newlife
DoneWithTurn
END_COMMAND

COMMAND ANY
IsSomewhere       300         ;sheriff somewhere
NOT AtLocation    37          ;not in sherrif office
NOT AtLocation    38          ;not in cell
FlagON            7           ;legal room
Chance            10          ;routine to put sheriff in same room
PutInCurrentRoom  300         ;put sheriff in room
PrintMessage      5           ;print sherrifs warning
SendToRoom        300  37     ;put sheriff back in jail
BlankLine
END_COMMAND

COMMAND ANY
AtLocation        8           ;routine for dog to flee
Present           301         ;dog is here
PrintMessage      6           ;print dog fleeing
BlankLine
SendToRoom        301  31     ;put dog in sporting goods store
DoneWithTurn 
END_COMMAND

COMMAND ANY
CounterEquals    3    3       ;routine to have dog leave without you following
Present          301          ;dog is here
AtLocation       31           ;in sporting goods store
FlagOFF          1            ;Dog is ready to be followed
PrintMessage     11           ;print follow message
SendToRoom       201  49      ;put ham bone in grave
Destroy          301          ;put dog in room 0
END_COMMAND

COMMAND ANY
CounterEquals    3    3       ;routine to have dog leave and you follow
Present          301          ;dog is here
AtLocation       31           ;in sporting good store
FlagON           1            ;dog is ready to be followed
FlagON           83           ;ham bone has been given
PrintMessage     8            ;print following dog to cemetery
SendToRoom       301  44      ;send dog to cemetery
GoToRoom         44           ;send player to cemetery
PrintMessage     9            ;print dog burying bone
TurnCounterOFF   3            ;Turn dog delay counter off
SendToRoom       201  49      ;put ham bone under grave
Destroy          301          ;put dog in room 0
PlusScore        25           ;add 25 points to score
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagOn           2            ;routine to check lamp
AddToVariable    1    1       ;increase lamp burn by one       
VariableGT       1    175     ;check to see if lamp has been on 175 turns
PrintMessage     18           ;print flickering lamp
VariableEquals   1    200     ;check to see of lamp has been on 200 turns
PrintMessage     19           ;Lamp goes off
TurnFlagOff      2            ;turn lamp flag off
TurnFlagOFF      5            ;turn fuel flag off
TurnFlagOFF      6            ;turn gas fuel flag off
SwapLocations    207  219     ;get unfueled lamp put fuel lamp in 0
END_COMMAND

COMMAND ANY                   
FlagON           4            ;routine for death with lamp 
Present          218          ;lamp with gas present
AddToVariable    1    1       ;increase by one lamp burning
VariableGT       1    5       ;check to see if lamp has burnt more than 5
PrintMessage     24           ;Death by explosion
MinusScore       50           ;lose 50 points for dumbness
Destroy          218          ;destroy gas lamp
SendAllToRoom    42           ;send all treasure to cemetery
TurnFlagOff      4            ;shut burning lamp flag off
KillPlayer                    ;kill player
FlagON           32           ;lamp dropped at gate
SwapLocations    250  251     ;put open gate here
ChangePassageway 4    108     ;open passage to mansion
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON           4            ;routine to destroy lamp
AddToVariable    1    1       ;increase lamp burning by one turn
VariableGT       1    5       ;check to see if lamp has burnt more than 5
PrintMessage     29           ;blow up lamp
Destroy          218          ;destroy gas lamp
TurnFlagOFF      4            ;shut burning lamp flag off
TurnFlagON       31           ;turn destruction on
DoneWithTurn
END_COMMAND

COMMAND ANY
IsSomewhere      300          ;routine to have sherriff arrest
FlagON           5            ;Lamp has been filled with fuel
OR               
FlagON           6            ;lamp has been filled with gas
PrintMessage     30           ;Sheriff arest player
GoToRoom         38           ;send player to prison
BlankLine          
PrintMessage     31           ;lock player in cell
SendAllToRoom    37           ;send treasure to sheriff's office
TurnFlagOFF      5            ;lamp no longer has fuel
TurnFlagOFF      6            ;lamp no longer has gas
TurnFlagOFF      7            ;sheriff quits showing up
TurnFlagON       10           ;zombies deactivated
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagOn            13          ;routine to for failure to get key
CounterGT         4   20      ;key counter elaspse
PrintMessage      41          ;arrested for fighting
BlankLine
TurnFlagOFF       13          ;reset key search flag
TurnCounterOFF    4           ;reset key search counter
GoToRoom          38          ;Send Player to jail
PrintMessage      31          ;locked in cell
BlankLine
SendAllToRoom     37          ;put all treasure in sherrifs office
TurnFlagON        10          ;zombies deactivated
SendToRoom        221  38     ;put locked cell door in cell
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagOn            12          ;routine for pentalty for not hidding
CounterEquals     4    3      ;2 moves have elaspe
PrintMessage      41          ;arrested for fighting
BlankLine
TurnFlagOFF       12          ;reset search flag
TurnCounterOFF    4           ;reset serach timer
GoToRoom          38          ;send player to jail
PrintMessage      31          ;Locked in jail
BlankLine
SendAllToRoom     37          ;put treasure in sheriffs office
TurnFlagON        10          ;zombies deactivated
PutInCurrentRoom  221         ;put locked door in cell
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            14          ;routine to arrest player for no locking door
CounterEquals     5    4      ;3 moves elaspe
PrintMessage      41          ;arrest for fighting
TurnFlagOFF       14          ;reset flag
TurnCounterOff    5           ;reset counter
GoToRoom          38          ;send player to jail
SendToRoom        300  37     ;put sheriff in office
PrintMessage      31          ;Locked in jail
SendAllToRoom     37          ;put treasure in sheriff office
TurnFlagON        10          ;zombies deactivated
SwapLocations     221  222    ;put locked door here
ChangePassageway  4    0      ;close exit up
DoneWithTurn 
END_COMMAND

COMMAND ANY
FlagOFF           18          ;vampire not here already
AtLocationGT      48          ;routine to have vampire show up
AtLocationLT      56          ;in rooms betweem 48 and 56
Chance            40          ;40% chance it will show up
PrintMessage      58          ;vampire shows up
PutInCurrentRoom  303         ;put vampire in room
TurnFlagON        18          ;vampire activator
END_COMMAND

COMMAND ANY
AtLocation        65          ;at statue
Present           307         ;statue is here
AddToVariable     4    1      ;increase death variable
PrintMessage      86          ;angry statue
VariableGT        4    5      ;variable to kill player
PrintMessage      88          ;you died
SendAllToRoom     42          ;transfer goods to cem
SetVariableTo     4    1      ;reset variable
KillPlayer                    ;bye bye
MinusScore        50          ;bad move
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation        58          ;at park entrance
FlagOFF           25          ;werewolf is alive
PrintMessage      91          ;werewolf howls
BlankLine
END_COMMAND

COMMAND ANY
FlagOFF           79          ;first time for this command
AtLocation        78          ;on the beach
PrintMessage      219         ;no more ressurections
TurnFlagON        79          ;disable this command
END_COMMAND

COMMAND ANY
FlagON            27          ;spider is following
PrintMessage      94          ;spider follows
CounterEquals     6    10     ;long enough-time to die
TurnCounterOFF    6           ;turn counter off
PrintMessage      95          ;spider kills you
MinusScore        50          ;bad move
EndGame                       ;it is all over
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            27          ;spider is following
AtLocation        97          ;in praying mantis room
PrintMessage      96          ;praying mantis kills spider
Destroy           314         ;spider dead
Destroy           316         ;destroy praying mantis
TurnFlagON        26          ;spider flag shows dead
TurnFlagOFF       27          ;flag off for spider following
TurnCounterOFF    6           ;shut spider counter off
PlusScore         20          ;good job
RemoveFromGroup   314         ;remove spider from group
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            29          ;fly following
PrintMessage      101         ;fly follows
CounterEquals     7    10     ;enough time-ready to die
TurnCounterOFF    7           ;fly counter off
PrintMessage      102         ;fly kills player
MinusScore        50          ;bad move
EndGame                       ;no use retrying
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            29          ;fly following
AtLocation        90          ;in web room
PrintMessage      103         ;fly gets caught in web
TurnFlagON        28          ;scepter now free
SendToRoom        252  90     ;put scepter here
TurnFlagOFF       29          ;fly gone
TurnCounterOFF    7           ;reset counter
SwapLocations     317  318    ;put trap fly in room
RemoveFromGroup   317         ;remove fly from group
PlusScore         20          ;good job
FlagOFF           26          ;spider is alive
FlagOFF           27          ;spider is not following
TurnFlagON        30          ;fly caught with spider alive
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagOn            30          ;fly caught and spider alive not following
PrintMessage      105         ;spider eyes fly
BlankLine          
PrintMessage      93          ;spider eyes you
PutInCurrentRoom  314         ;put spider in room
AddToGroup        314         ;spider starts following
TurnFlagOFF       30          ;disable this routine
TurnFlagON        27          ;spider flag to follow
TurnCounterON     6           ;spider counter for death activated
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            32          ;lamp at gate
FlagON            31          ;lamp blows up
SwapLocations     250  251    ;put open gate now
TurnFlagON        33          ;marker to change passageway
TurnFlagOFF       32          ;disable this routine
PlusScore         15          ;nice job
END_COMMAND

COMMAND ANY
FlagON            33          ;gate blown
AtLocation        105         ;at gate
ChangePassageway  4    108    ;open passageway
TurnFlagOFF       33          ;deactivate this routine
END_COMMAND

COMMAND ANY
Present           321         ;shadow is here
IsWearing         234         ;has ring on
AddToGroup        321         ;put shadow in group
TurnFlagOn        41          ;shadow now a group member
END_COMMAND

COMMAND ANY
Present           321         ;shadow is here
NOT IsWearing     234         ;does not have ring on
FlagOFF           42          ;not held by talisman
PrintMessage      127         ;shadow kills you
MinusScore        50          ;bad move
EndGame                       ;no use playing anymore
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            41          ;shadow is group member
FlagOFF           42          ;not held by talisman
Chance            10          ;10% chance shadow will attack
PrintMessage      126         ;shadow is frighten by ring
END_COMMAND

COMMAND ANY
FlagON            41          ;shadow is group member
AtLocation        140         ;in lab
Present           256         ;arch is working
FlagOFF           42          ;shadow not held by green stone
PrintMessage      161         ;shadow scared of arch
TurnFlagOFF       41          ;shut group member flag off
RemoveFromGroup   321         ;remove shadow from group
SendToRoom        321  123    ;put shadow in bedroom
END_COMMAND

COMMAND ANY
AtLocationGT      142         ;in fourth diminsion
FlagON            46          ;arch is working
FlagOFF           65          ;arch is still here
FlagOFF           42          ;shadow not bond by stone
FlagOFF           52          ;console not protected
FlagOFF           62          ;shadow not destroyed
SendToRoom        256  240    ;take archway from chamber
PrintMessage      162         ;sinster laugh as arch is taken away
TurnFlagON        65          ;arch gone
TurnFlagOFF       46          ;shut arch down
END_COMMAND

COMMAND ANY
AtLocation        140         ;in lab
FlagON            43          ;room unsafe
PrintMessage      142         ;die in unsafe room
MinusScore        50          ;bad job
EndGame                       ;no use counting
DoneWithTurn 
END_COMMAND

COMMAND ANY
FlagON            43          ;lab unsafe
FlagON            47          ;purger on
CounterGT         8    4      ;purge completed
TurnFlagOFF       43          ;lab now safe
TurnFlagOFF       47          ;turn purger off
TurnCounterOFF    8           ;shut counter off
END_COMMAND 

COMMAND ANY
AtLocation        142         ;in chamber
FlagOFF           64          ;shadow not talked yet
FirstVisitToRoom              ;first time there
PrintMessage      156         ;shadow gives pep talk
TurnFlagON        64          ;shadow talk over
Destroy           324         ;get rid of white shadow
BlankLine
END_COMMAND

COMMAND ANY
AtLocationGT      153         ;somewhere greater than room 151
AtLocationLT      163         ;in the orange section of 4th
Present           206         ;cross here or
OR
Present           252         ;scepter here
OR                
Present           261         ;orb here
OR 
Present           277         ;amulet here
OR 
Present           283         ;stone here
TurnFlagON        50          ;death is set
END_COMMAND

COMMAND ANY
AtLocationGT      163         ;in blue section
AtLocationLT      170         ;
Present           206         ;cross
OR
Present           234         ;ring
OR
Present           261         ;orb
OR
Present           277         ;amulet here
OR
Present           283         ;stone
TurnFlagON        50          ;death set
END_COMMAND

COMMAND ANY
AtLocationGT      169         ;in silver section
AtLocationLT      178         ;
Present           234         ;ring
OR
Present           252         ;scepter
OR
Present           261         ;orb
OR
Present           277         ;amulet
OR
Present           283         ;stone
TurnFlagON        50          ;death set
END_COMMAND

COMMAND ANY
AtLocationGT      177         ;in green section
AtLocationLT      186         ;
Present           206         ;cross
OR
Present           234         ;ring
OR
Present           252         ;scepter
OR
Present           261         ;orb
OR
Present           277         ;amulet
TurnFlagON        50          ;death set
END_COMMAND

COMMAND ANY
AtLocationGT      187         ;in red section
AtLocationLT      199         ;
Present           206         ;cross
OR
Present           234         ;ring
OR
Present           252         ;scepter
OR
Present           261         ;orb
OR
Present           283         ;stone
TurnFlagON        50          ;death set
END_COMMAND

COMMAND ANY
FlagON            50          ;death is comming
PrintMessage      157         ;die by stones
MinusScore        50          ;lose turn
EndGame                       ;no use starting over now
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            53          ;on swingset
VerbIsDirection               ;going to move
TurnFlagOFF       53          ;shut swingset flag off
PrintMessage      168         ;leave swingset
FlagOFF           54          ;amulet not out of tree
SendToRoom        277  0      ;make sure amulet stays in room 0
END_COMMAND

COMMAND ANY
FlagON            55          ;following rat
VerbIsDirection               ;going to move
TurnFlagOFF       55          ;shut following flag off
END_COMMAND

COMMAND ANY
AtLocation        195         ;in pit
IsCarrying        291         ;has umbrella
IsOpen            291         ;umbrella open
PrintMessage      185         ;umbrella takes you up to island
GoToRoom          190         ;on island now
DoneWithTurn 
END_COMMAND

COMMAND ANY
AtLocation        197         ;in cave of wind
IsCarrying        291         ;has umbrella
IsOpen            291         ;umbrella is open
PrintMessage      186         ;blown into sepulcher
SendToRoom        291  42     ;hide umbrella
GoToRoom          198         ;put player in sepulcher
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation        140         ;in lab
FlagON            63          ;ring in place
FlagON            61          ;tailsman in place
FlagON            60          ;amulet in place
FlagON            59          ;scepter in place
FlagON            57          ;cross in place
FlagON            51          ;orb in place
FlagON            62          ;shadow defeated
PrintMessage      192         ;game win
PlusScore         100         ;win game
WinGame                       ;yea!
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation        140         ;in lab
FlagON            63          ;ring in place
FlagON            61          ;tailsman in place
FlagON            60          ;amulet in place
FlagON            59          ;scepter in place
FlagON            57          ;cross in place
FlagON            51          ;orb in place
FlagOFF           62          ;shadow still alive
PrintMessage      193         ;game over shadow lives
EndGame                       ;game over
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON            82          ;rat in hiding
CounterEquals     9    30     ;20 moves hav elasped
SendToRoom        325  100    ;put rat back in forest
SendToRoom        248  78     ;put vial back in game
TurnFlagOFF       82          ;shut rat off
TurnCounterOFF    9           ;shut counter off
END_COMMAND

COMMAND LIGHT LAMP
IsCarrying        207         ;routine to light lamp
IsCarrying        200         ;carrying lighter
FlagON            5           ;lamp has kerosene in it
FlagOFF           2           ;Lamp is not already lit
SetVariableTo     1    1      ;turn on light counter
TurnFlagON        2           ;Light flag is on
SwapLocations     219  207    ;get kersoene lit lamp
PrintMessage      27          ;lamp lit with kerosene
Destroy           208         ;put kerosene in room 0
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP
IsCarrying        207         ;routine to light lamp filled with gas
IsCarrying        200         ;has lighter
FlagON            6           ;lamp has gas
FlagOFF           2           ;lamp is not already lit
PrintMessage      23          ;Lamp now lit with gasoline
TurnFlagON        4           ;flag for gas lit lamp
SetVariableTo     1    1      ;start counter for light
SwapLocations     218  207    ;get gas lamp for unlit lamp
Destroy           215         ;put gasoline in room 0
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP
IsCarrying       218          ;routine to light already lit lamp
OR                            ;is carryin a lit lamp
IsCarrying       219
PrintMessage     25           ;print no luck message
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP
FlagOFF           5           ;routine for no fuel
FlagOFF           6           ;lamp not filled flag
PrintMessage      15          ;no luck message
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP
NOT IsCarrying    200         ;routine for no lighter
PrintMessage      16          ;no luck message
DoneWithTurn
END_COMMAND

COMMAND LIGHT ANY
NOUNPresent
PrintMessage      220         ;arsonist message
DoneWithTurn
END_COMMAND

COMMAND EXTINGUISH LAMP
Present           219         ;routine to extinquish lamp keroseme
TurnFlagOFF       2           ;shut lamp burning flag off
SwapLocations     207  219    ;get unlit lamp
PrintMessage      26          ;extinguish lamp 
DoneWithTurn
END_COMMAND

COMMAND TURN OFF LAMP
ReDirectTo EXTINGUISH LAMP
DoneWithTurn
END_COMMAND

COMMAND EXTINGUISH LAMP
Present            218        ;routine to try to turn off gas lamp
PrintMessage       28         ;No luck message
DoneWithTurn
END_COMMAND

COMMAND EMPTY LAMP
IsCarrying        207         ;has lamp
FlagON            5           ;has kerosene in lamp
OR
FlagON            6           ;or is filled with gas
PrintMessage      89          ;dump fuel
TurnFlagOFF       5           ;shut fuel flag off
TurnFlagOFF       6           ;same
DoneWithTurn
END_COMMAND

COMMAND EMPTY LAMP
IsCarrying        218         ;has lit lamp
OR
IsCarrying        219 
PrintMessage      90          ;too dangerous to dump lit lamp
DoneWithTurn
END_COMMAND

COMMAND GIVE BONE TO THE DOG
AtLocation        31          ;routine to tame dog
Present           301         ;dog is present
IsCarrying        201         ;player has ham bone
PrintMessage      7           ;give bone to dog
TurnCounterON     3           ;timer to time dog
TurnFlagON        83          ;has given bone to dog
SendToRoom        201 0       ;put ham bone in ROOM 0
BlankLine
DoneWithTurn
END_COMMAND

COMMAND GIVE ANY TO THE DOG
NOUNPresent
PrintMessage      222         ;dog looks funny
DoneWithTurn 
END_COMMAND

COMMAND GIVE TALISMAN TO STATUE
AtLocation        185         ;in shrine
IsCarrying        283         ;has talisman
PrintMessage      189         ;talisman give
DropIt            283         ;drop talisman
TurnFlagON        61          ;talisman in place
IsGroupMember     321         ;shadow is in group
PrintMessage      190         ;shadow held by statue
TurnFlagOFF       41          ;shadow not group member
TurnFlagOFF       42          ;shadow not bound
Destroy           321         ;get rid of shadow
TurnFlagON        62          ;shadow destroyed
PlusScore         25          ;good job
END_COMMAND

COMMAND GIVE TALISMAN TO STATUE
AtLocation        185         ;in shrine
FlagOn            61          ;talisman is in place
GoToRoom          142         ;send player to chamber
PrintMessage      198         ;back in chamber
PlusScore         25          ;good job
DoneWithTurn 
END_COMMAND

COMMAND GIVE ANY TO STATUE
NOUNPResent                   ;noun here
AtLocation        185         ;in shrine
PrintMessage      223         ;statue refuse
DoneWithTurn
END_COMMAND

COMMAND GIVE ANY TO ANY
NOUNPresent                   ;noun is here
ObjectPresent                 ;object here
PrintMessage      224         ;nice try
DoneWithTurn
END_COMMAND

COMMAND FOLLOW DOG
AtLocation        31          ;routine to set flag to follow dog
Present           301         ;dog is here in sporting goods
PrintMessage      10          ;you start following dog
TurnFlagOn        1           ;dog fleeing flag activated
DoneWithTurn
END_COMMAND

COMMAND FOLLOW RAT
AtLocation        100         ;at rat's intial location
Present           325         ;rat is here
PrintMessage      175         ;you start to follow rat
TurnFlagON        55          ;flag that you started to follow rat
DoneWithTurn 
END_COMMAND

COMMAND FOLLOW ANY
NOUNPresent                   ;noun here
PrintMessage      225         ;you can't do that
DoneWithTurn
END_COMMAND

COMMAND EXAMINE CRATE
AtLocation        17          ;in storeroom
Present           203         ;routine to put shovel in crate
IsNowhere         202         ;spade in room 0
PrintMessage      12          ;find the spade
PutInCurrentRoom  202         ;put spade in storeroom
DoneWithTurn
END_COMMAND

COMMAND EXAMINE SHELF
AtLocation        21          ;routine to put ham bone on shelf
IsNowhere         201         ;bone in room 0
PrintMessage      13          ;find bone
PutInCurrentRoom  201         ;put bone in grocery store
DoneWithTurn 
END_COMMAND

COMMAND EXAMINE RACK
AtLocation        16          ;routine to put lamp on rack
IsNowhere         207         ;lsmp in room 0
PrintMessage      14          ;find lamp
PutInCurrentRoom  207         ;put lamp in hardware store
DoneWithTurn
END_COMMAND

COMMAND EXAMINE COUNTER
AtLocation        19          ;in the drug store
IsNowhere         248         ;pill vial in room 0
PrintMessage      66          ;find vial
PutInCurrentRoom  248         ;vial here now
TurnFlagON        81          ;has found vial
DoneWithTurn
END_COMMAND

COMMAND EXAMINE TABLE
AtLocation        28         ;in clothing store
IsNowhere         237        ;hat box not found yet
PrintMessage      76         ;find hatbox
PutInCurrentRoom  237        ;hat box now here
DoneWithTurn
END_COMMAND

COMMAND EXAMINE TABLE
AtLocation        19          ;in drug store
IsNowhere         297         ;bird seed not here
PrintMessage      226         ;find birdseed
PutInCurrentRoom  297         ;put birdseed in room
DoneWithTurn 
END_COMMAND

COMMAND EXAMINE WEB
AtLocation        90          ;at web
IsNowhere         315         ;skeleton not here yet
PrintMessage      97          ;skeleton in web
PutInCurrentRoom  315         ;put skeleton in room
DoneWithTurn
END_COMMAND

COMMAND EXAMINE CONSOLE
AtLocation        141         ;in control room
IsNowhere         262         ;console not examine before
PrintMessage      129         ;find all buttons
PutInCurrentRoom  262         ;put red button here
PutInCurrentRoom  263         ;put green button here
PutInCurrentRoom  264         ;put readout here
PutInCurrentRoom  266         ;put orange button here
PutInCurrentRoom  267         ;put blue button here
TurnFlagON        80          ;console examined
DoneWithTurn
END_COMMAND

COMMAND EXAMINE READOUT
Present           264         ;readout is here
FlagOFF           43          ;room safe
PrintMessage      130         ;readout at 0
DoneWithTurn
END_COMMAND

COMMAND EXAMINE READOUT
Present           264         ;readout is here
FlagON            43          ;room unsafe
CounterEquals     8    0      ;purge timer not started
PrintMessage      131         ;readout reads 100
DoneWithTurn
END_COMMAND

COMMAND EXAMINE READOUT
Present           264         ;readout is here
FlagON            43          ;room is unsafe
CounterEquals     8    2      ;purge started
PrintMessage      132         ;readout at 75
DoneWithTurn
END_COMMAND

COMMAND EXAMINE READOUT
Present           264         ;readout is here
FlagON            43          ;room unsafe
CounterEquals     8    3      ;purge half done
PrintMessage      133         ;readout at 50
DoneWithTurn
END_COMMAND

COMMAND EXAMINE READOUT
Present           264         ;readout is here
FlagON            43          ;room unsafe
CounterEquals     8    4      ;purge 3/4 completed
PrintMessage      134         ;readout at 25
DoneWithTurn
END_COMMAND

COMMAND EXAMINE SKELETON
AtLocation        90          ;at web
IsNowhere         252         ;scepter in not here yet
Present           315         ;skeleton is here
PrintMessage      98          ;find scepter
PutInCurrentRoom  252         ;put scepter in room
DoneWithTurn
END_COMMAND

COMMAND EXAMINE BENCH
Atlocation        131         ;at workshop
IsNowhere         275         ;prybar not found yet
PrintMessage      106         ;find prybar
PutInCurrentRoom  275         ;put prybar in room
DoneWithTurn
END_COMMAND

COMMAND EXAMINE POOL TABLE
AtLocation        112         ;at recreation table
FlagOFF           48          ;nine ball has not be gotten
FlagOFF           49          ;eight ball has not be gotten
PrintMessage      147         ;show full table
DoneWithTurn
END_COMMAND

COMMAND EXAMINE POOL TABLE
AtLocation        112         ;in recreation room
FlagON            48          ;nine ball gone
FlagOFF           49          ;eight ball has not been gotten
PrintMessage      148         ;show table minus 9 ball
DoneWithTurn
END_COMMAND

COMMAND EXAMINE POOL TABLE
AtLocation        112         ;in recreation room
FlagOFF           48          ;nine ball is here
FlagON            49          ;eight ball is missing
PrintMessage      149         ;show table with eight ball missing
DoneWithTurn
END_COMMAND

COMMAND EXAMINE POOL TABLE
AtLocation        112         ;in recreation room
FlagON            48          ;nine ball is missing
FlagON            49          ;eight ball is missing
PrintMessage      150         ;show table with both balls missing
DoneWithTurn
END_COMMAND

COMMAND EXAMINE DRESSER
AtLocation        35          ;in hotel room
PrintMessage      151         ;examine dresser
DoneWithTurn
END_COMMAND

COMMAND EXAMINE SPRUCE
AtLocation        64          ;in palyground
FlagOFF           54          ;amulet not on ground
PrintMessage      195         ;object in spruce
DoneWithTurn
END_COMMAND

COMMAND SCREW FUSE IN HOLDER
AtLocation        13          ;ROUTINE TO TURN ON PUMPS
Present           209         ;open fuse box is here
IsCarrying        211         ;got the fuse
PrintMessage      20          ;put fuse in holder
SwapLocations     209  216    ;swap good fuse box with bad
TurnFlagON        3           ;gas pump flag on
Destroy           211         ;put fuse in room 0
Destroy           217         ;put holder in room 0
DoneWithTurn
END_COMMAND

COMMAND ORDER BEER
AtLocation        29          ;routine to order a beer in the bar
FlagOFF           11          ;beer has not been ordered before
IsCarrying        239         ;has coins
Destroy           239         ;get rid of coins
GetIt             224         ;give beer to player
TurnFlagON        11          ;beer now ordered
TurnFlagON        24          ;coins spent
PrintMessage      37          ;serve beer
DoneWithTurn
END_COMMAND

COMMAND ORDER BEER
AtLocation        29          ;is in bar
FlagOFF           11          ;no beer has been ordered
NOT Present       239         ;coins not here
PrintMessage      87          ;no doe no beer
DoneWithTurn
END_COMMAND

COMMAND DRINK BEER
NOT AtLocation    29          ;routine to drink beer outside bar
FlagON            11          ;beer has been ordered
IsCarrying        224         ;carrying the beer
PrintMessage      38          ;drunk message
BlankLine
SendToRoom        224  0      ;put beer nowhere
TurnFlagOFF       11          ;reset order flag
DoneWithTurn 
END_COMMAND

COMMAND DRINK BEER
AtLocation        29          ;routine to drink beer in bar
FlagOn            11          ;beer has been ordered
Present           224         ;beer is present
PrintMessage      39          ;fight starts
SendToRoom        224  0      ;put beer nowhere
TurnFlagOFF       11          ;reset order flag
TurnFlagON        12          ;Fight has started
TurnCounterON     4           ;start sheriff looking for you
TurnFlagOFF       7           ;sherriff deactivate
DoneWithTurn
END_COMMAND

COMMAND OPEN DESK
AtLocation        37          ;routine to open desk with sheriff there
Present           300         ;sheriff is there
PrintMessage      64          ;sheriff does not allow it
DoneWithTurn
END_COMMAND

COMMAND OPEN DESK
AtLocation        37          ;routine to open desk
IsNowhere         220         ;key in room 0
PrintMessage      46          ;find key
PutInCurrentRoom  220         ;put key in room
DoneWithTurn
END_COMMAND

COMMAND OPEN HATBOX
AtLocation        65          ;at hostile statue
Present           307         ;hostile statue is here
IsCarrying        249         ;have pigeon in box
PrintMessage      79          ;pigeon destroys statue
PutInCurrentRoom  242         ;statue drops key
PutInCurrentRoom  306         ;put pigeon here
SwapLocations     249  237    ;put empty hatbox here
SwapLocations     307  311    ;put destroyed statue here
OpenIt            237         ;open hatbox
PlusScore         15          ;good job
DoneWithTurn
END_COMMAND

COMMAND OPEN HATBOX
AtLocation        65          ;at hostile statue
Present           307         ;hostile statue here
IsCarrying        237         ;has empty hatbox
PrintMessage      80          ;open empty hatbox
DoneWithTurn
END_COMMAND

COMMAND OPEN HATBOX
IsCarrying        249         ;has box with pigeon
NOT Present       307         ;hostile statue not here
PrintMessage      81          ;release pigeon
PutInCurrentRoom  306         ;put pigeon in room
DoneWithTurn
END_COMMAND

COMMAND RELEASE PIGEON
ReDirectTo OPEN HATBOX
END_COMMAND

COMMAND OPEN CABINET
AtLocation        15          ;at hardware office
IsNowhere         245         ;file in room 0
PrintMessage      65          ;file found
PutInCurrentRoom  245         ;get file
OpenIt            244         ;file cabinet open
DoneWithTurn 
END_COMMAND

COMMAND OPEN DRESSER
AtLocation        35          ;routine to get bible
IsNowhere         227         ;bible in room 0
PrintMessage      53          ;find bible
PutInCurrentRoom  227         ;put bible in current room
DoneWithTurn
END_COMMAND

COMMAND OPEN COFFIN
AtLocation        55          ;is in coffin room
IsClosed          233         ;coffin is closed
PrintMessage      61          ;opening coffin
OpenIt            233         ;open coffin
PutInCurrentRoom  304         ;put corpse in room
DoneWithTurn
END_COMMAND

COMMAND OPEN ANY
NOT AtLocation    20          ;not in cafe
NOUNIsCreature                ;dummy nound in use
PrintMessage      227         ;can't do that
DoneWithTurn
END_COMMAND

COMMAND HIDE
AtLocation        29          ;routine to hide a bar
FlagOFF           13          ;You have already hid
FlagON            12          ;fight in progress
PrintMessage      40          ;Sheriff shows up and players flee
TurnFlagOn        13          ;key can be got
GoToRoom          26          ;locate player outside
SendToRoom        300  0      ;put sheriff in bar
SendToRoom        302  0
BlankLine
TurnFlagOFF       12
DoneWithTurn
END_COMMAND

COMMAND HIDE
AtLocation        37          ;routine to hide with key in sheriff office
IsCarrying        220         ;has the key
FlagON            13          ;key can be got
IsOpen            221         ;cell door open
FlagON            15
PrintMessage      42          ;hiding in sheriffs office
BlankLine
SendToRoom        302  38     ;put patrons in jail
SendToRoom        300  38     ;sheriff in jail
TurnFlagOFF       13          ;disable key search
TurnFlagON        14
PrintMessage      47          ;sherriff enters jail
TurnCounterON     5           ;activate sheriff counter
DoneWithTurn
END_COMMAND

COMMAND HIDE
AtLocation        35          ;routine to hide in bed
PrintMessage      57          ;hide in bed
GoToRoom          57          ;put in bed
DoneWithTurn
END_COMMAND

COMMAND HIDE
PrintMessage      43          ;routine not to hide
DoneWithTurn 
END_COMMAND

COMMAND GO TO BED
AtLocation        35          ;routine to go to bed
PrintMessage      55          ;enter bed
GoToRoom          57          ;put in bed
DoneWithTurn 
END_COMMAND

COMMAND GO TO PULPIT
AtLocation        27          ;set up for opening pulpit
PrintMessage      54          ;go to pulp
GoToRoom          56          ;place at pulpit
SetVariableTo     3    0      ;variable for amen set off
DoneWithTurn
END_COMMAND

COMMAND GO TO ARCHWAY
AtLocation        140         ;in lab
Present           256         ;archway is working
PrintMessage      143         ;teleported to 4th diminsion
GoToRoom          142         ;send to chamber
SendToRoom        256  142    ;send archway to chamber
DoneWithTurn
END_COMMAND

COMMAND GO TO ARCHWAY
AtLocation        142         ;in chamber
Present           256         ;archway is working
PrintMessage      144         ;teleported back to lab
GoToRoom          140         ;send to lab
SendToRoom        256  140    ;send archway to lab
DoneWithTurn
END_COMMAND

COMMAND GO TO ARCHWAY
AtLocation        140         ;in lab
Present           255         ;non working archway here
PrintMessage      145         ;nothing happens
DoneWithTurn
END_COMMAND

COMMAND GO TO ARCHWAY
AtLocation        142         ;in chamber
NOT Present       256         ;archway is gone
PrintMessage      146         ;up the creek
DoneWithTurn
END_COMMAND

COMMAND GO TO SWINGSET
AtLocation        64          ;in plauground
FlagOFF           53          ;not on swingset
PrintMessage      194         ;now on swing
TurnFlagON        53          ;marker for flag
DoneWithTurn
END_COMMAND

COMMAND GO TO BOAT
AtLocation        74          ;at boat dock
Present           296         ;boat is here
PrintMessage      228         ;enter boat
GoToRoom          76          ;go to boat
DoneWithTurn
END_COMMAND

COMMAND GO TO BOAT
AtLocation        78          ;on the beach
Present           296         ;boat is here
PrintMessage      228         ;enter boat
GoToRoom          77          ;go to boat
DoneWithTurn
END_COMMAND

COMMAND GO TO ANY
PrintMessage      232         ;can't do that
DoneWithTurn
END_COMMAND

COMMAND SLEEP
AtLocation        57          ;routine to sleep
PrintMessage      52          ;fitfull sleep
DoneWithTurn
END_COMMAND

COMMAND SLEEP      
NOT AtLocation    35          ;routine to sleep not in bed
PrintMessage      51          ;can't sleep
DoneWithTurn
END_COMMAND

COMMAND LOCK DOOR WITH KEY
AtLocation        37          ;routine to lock sheriff in
FlagON            14          ;sheriff is present in cell
IsCarrying        220         ;has key
SendToRoom        300  0      ;sheriff now nowhere
TurnFlagOFF       7           ;sheriff deactivated
TurnCounterOFF    5           ;stop timer for sheriff escape
PutInCurrentRoom  223         ;change to bent key
Destroy           220         ;hide good key
PrintMessage      44          ;mad sheriff
PlusScore         25          ;good job
TurnFlagOFF       14          ;reset arrest flag
ChangePassageway  4   0       ;close passage to cell
LockIt            221         ;lock cell door
DoneWithTurn
END_COMMAND

COMMAND LOCK DOOR WITH KEY
AtLocation        74          ;is at boat dock
IsCarrying        242         ;has the key
IsUnLocked        241         ;door is unlocked
IsClosed          241         ;door is closed
PrintMessage      83          ;door now lock
LockIt            241         ;door now locked
DoneWithTurn
END_COMMAND

COMMAND LOCK CONSOLE WITH KEY
AtLocation        141         ;in control room
IsCarrying        273         ;has key
IsUnLocked        268         ;console is open
PrintMessage      136         ;lock console
LockIt            268         ;lock console
TurnFlagOFF       44          ;console locked
DoneWithTurn
END_COMMAND

COMMAND UNLOCK DOOR WITH KEY
AtLocation        37          ;routine open passageway
IsCarrying        220         ;has key
ChangePassageway  4   38      ;open passage
UnLockIt          221         ;unlock door
PrintMessage      45          ;unlock jail door
TurnFlagON        15          ;door unlock flag       
DoneWithTurn
END_COMMAND

COMMAND UNLOCK DOOR WITH KEY
AtLocation        74          ;at boat dock
IsCarrying        242         ;has right key
IsLocked          241         ;door is locked
PrintMessage      82          ;door now unlock
UnlockIt          241         ;unlock the door
ChangePassageway  4    75     ;open passageway
DoneWithTurn 
END_COMMAND

COMMAND UNLOCK CONSOLE WITH KEY
AtLocation        141         ;in control room
FlagON            80          ;console has been examined
IsCarrying        273         ;has square key
IsLocked          268         ;console is locked
PrintMessage      135         ;unlock console
TurnFlagON        44          ;console unlocked
UnLockIt          268         ;console unlocked
DoneWithTurn
END_COMMAND

COMMAND UNLOCK TRUNK WITH PRYBAR
ReDirectTo PRY TRUNK
END_COMMAND

COMMAND DIG 
IsCarrying        202         ;routine to dig hole
AtLocation        44          ;at cemetery
IsLocated         201  49     ;dog has buried bone
NOT Present       226         ;hole not here
PrintMessage      48          ;dig in grave
ChangePassageway  10   49     ;open up new passage
PutInCurrentRoom  226         ;put hole in cemetery        
DoneWithTurn
END_COMMAND

COMMAND DIG 
IsCarrying        202         ;routine to dig elsewhere
PrintMessage      49          ;no hole capable
DoneWithTurn 
END_COMMAND

COMMAND READ BIBLE
Present           227         ;routine to have note fall from bible
IsNowhere         228         ;note has not been found
PrintMessage      50          ;note falls from bible
PutInCurrentRoom  228         ;get note
END_COMMAND 

COMMAND READ JOURNAL
ReDirectTo TURN PAGE
DoneWithTurn 
END_COMMAND

COMMAND READ READOUT
ReDirectTo EXAMINE CONSOLE
END_COMMAND

COMMAND SHOUT AMEN
AtLocation        56          ;routine to open pulpit
AddToVariable     3    1      ;couter of amen being said
VariableEquals    3    3      ;amen said three times
PrintMessage      56          ;pulpit opens
SendToRoom        229  56     ;put shaft at pulpit
ChangePassageway  10   48     ;create down steps
PlusScore         15          ;good job
Destroy           305
DoneWithTurn
END_COMMAND

COMMAND WAVE CROSS AT VAMPIRE
FlagON            18          ;vampire in room
IsCarrying        206         ;have the cross
LightPresent                  ;room has light
PrintMessage      59          ;vampire scared
SendToRoom        303  0      ;put vampire in room 0
TurnFlagOFF       18          ;reset vampire flag
DoneWithTurn
END_COMMAND

COMMAND WAVE CROSS
FlagOFF           18          ;vampire not in room
IsCarrying        206         ;have cross
LightPresent                  ;room has light
PrintMessage      60          ;no vampire
DoneWithTurn
END_COMMAND

COMMAND WAVE CROSS AT VAMPIRE
IsCarrying        206         ;has cross
RoomNeedsLight                ;room needs light
PrintMessage      63          ;wave in dark
DoneWithTurn
END_COMMAND

COMMAND WAVE SCEPTER AT BAT
IsCarrying        252         ;has scepter
Present           322         ;bat is here
PrintMessage      125         ;light scares bat away
Destroy           322         ;get rid of bat
DoneWithTurn
END_COMMAND

COMMAND WAVE SCEPTER
IsCarrying        252         ;has scepter
PrintMessage      233         ;wave the scepter
DoneWithTurn
END_COMMAND

COMMAND WAVE TALISMAN AT SHADOW
IsCarrying        283         ;has stone
Present           321         ;shadow is here
FlagOFF           42          ;shadow not already bond
PrintMessage      166         ;shadow now bond
AddToGroup        321         ;now following
TurnFlagON        42          ;flag for shadow to follow everywhere
DoneWithTurn
END_COMMAND

COMMAND WAVE TALISMAN
IsCarrying        283         ;has talisman
PrintMessage      234         ;wave talisman
DoneWithTurn
END_COMMAND

COMMAND WAVE ANY
NOUNPresent                   ;noun here
PrintMessage      235         ;wave anything
DoneWithTurn
END_COMMAND

COMMAND SEARCH CORPSE
AtLocation        55          ;in corpse room
Present           304         ;corpse is here
PrintMessage      62          ;search corpse
PutInCurrentRoom  234         ;put ring in room
PlusScore         20          ;good job
DoneWithTurn
END_COMMAND

COMMAND SEARCH FOUNTAIN
AtLocation        69          ;at fountain
IsNowhere         308         ;werewolf is dead
FlagOFF           24          ;coins haven't been spent
PrintMessage      75          ;find coins
PutInCurrentRoom  239         ;put coins in room
DoneWithTurn
END_COMMAND

COMMAND SEARCH DESK
AtLocation        133         ;in office
IsNowhere         270         ;journal has not been found yet
PrintMessage      108         ;find journal
PutInCurrentRoom  270         ;put journal in room
DoneWithTurn
END_COMMAND

COMMAND SEARCH OVERCOAT
Present           259         ;overcoat is here
IsNowhere         260         ;gum wrapper has not been found
PrintMessage      114         ;find gum wrapper
PutInCurrentRoom  260         ;put wrapper in room
GetIt             260         ;put wrapper in possesion
DoneWithTurn
END_COMMAND

COMMAND SEARCH TRUNK
Present           274         ;trunk is here
FlagON            40          ;it has been opened
IsNowhere         261         ;orb not found yet
PrintMessage      124         ;find orb
PutInCurrentRoom  261         ;put orb in room
PlusScore         20          ;good job
DoneWithTurn 
END_COMMAND

COMMAND SEARCH ANY
NOUNPresent                   ;noun here
PrintMessage      229         ;find nothing
DoneWithTurn 
END_COMMAND

COMMAND TURN RIGHT
AtLocation        18          ;is in bank
FlagOFF           22          ;vault is close
FlagOFF           19          ;no right answer yet
PrintMessage      72          ;how many times
GetNumberInput    1   20      ;check first combination
NumberEquals      4           ;check answer
PrintMessage      73          ;to what number
GetNumberInput    1   100     ;get combination number
NumberEquals      9           ;right number
TurnFlagON        19          ;first response correct
PrintMessage      67          ;dial turned right
DoneWithTurn
END_COMMAND

COMMAND TURN LEFT
AtLocation        18          ;is in bank
FlagOFF           22          ;vault is close
FlagON            19          ;first answer right
PrintMessage      72          ;how many times
GetNumberInput    1    20     ;check second combination
NumberEquals      3           ;check answer
PrintMessage      73          ;what number?
GetNumberInput    1    100    ;get answer
NumberEquals      96          ;right answer
TurnFlagON        20          ;second answer right
PrintMessage      67          ;dial turned right
DoneWithTurn
END_COMMAND

COMMAND TURN RIGHT
AtLocation        18          ;is in bank
FlagOFF           22          ;vault is close
FlagON            19          ;first answer correct
FlagON            20          ;second answer correct
PrintMessage      72          ;how many times
GetNumberInput    1   20      ;check answer
NumberEquals      2           ;right answer
PrintMessage      73          ;what number
GetNumberInput    1   100     ;get answer
NumberEquals      4           ;right answer
TurnFlagON        21          ;third combination flag set
PrintMessage      67          ;dial turned right
DoneWithTurn 
END_COMMAND

COMMAND TURN LEFT
AtLocation        18          ;is in bank
FlagOFF           22          ;vault is close
FlagOn            19          ;first question right
FlagON            20          ;second question right
FlagON            21          ;third question right
PrintMessage      73          ;to what number
GetNumberInput    1    100    ;get combination
NumberEquals      50          ;right number
ChangePassageway  4    10     ;open passage to vault
TurnFlagOn        22          ;vault open
PlusScore         25          ;good job
PrintMessage      68          ;vault open
Destroy           299         ;destroy lock door
DoneWithTurn
END_COMMAND

COMMAND TURN LEFT
AtLocation        18          ;in bank
FlagOFF           22          ;vault still close
PrintMessage      69          ;wrong combination
TurnFlagOFF       19          ;turn all combination flag off
TurnFlagOFF       20
TurnFlagOFF       21
DoneWithTurn
END_COMMAND

COMMAND TURN LEFT
AtLocation        18          ;at bank
FlagON            22          ;vault open
PrintMessage      70          ;can't turn dial
DoneWithTurn
END_COMMAND

COMMAND TURN RIGHT
AtLocation        18          ;in bank
FlagOFF           22          ;vault still close
PrintMessage      69          ;wrong combination
TurnFlagOFF       19          ;turn all combination flag off
TurnFlagOFF       20
TurnFlagOFF       21
DoneWithTurn
END_COMMAND

COMMAND TURN RIGHT
AtLocation        18          ;at bank
FlagON            22          ;vault open
PrintMessage      70          ;can't turn dial
DoneWithTurn
END_COMMAND

COMMAND TURN PAGE
IsCarrying        270         ;has journal
FlagOFF           34          ;first page flag off
PrintMessage      109         ;read 1st page of journal
TurnFlagON        34          ;mark first page
DoneWithTurn
END_COMMAND

COMMAND TURN PAGE
IsCarrying        270         ;has journal
FlagON            34          ;first page read
FlagOFF           35          ;second page not read
PrintMessage      110         ;read second page
TurnFlagON        35          ;mark second page
DoneWithTurn
END_COMMAND

COMMAND TURN PAGE
IsCarrying        270         ;has journal
FlagON            35          ;second page read
FlagOFF           36          ;third page not read yet
PrintMessage      111         ;read third page
TurnFlagON        36          ;mark third page
DoneWithTurn
END_COMMAND

COMMAND TURN PAGE
IsCarrying        270         ;has journal
FlagON            36          ;third page read
FlagOFF           37          ;fourth page not read yet
PrintMessage      112         ;read fourth page
TurnFlagOFF       34          ;reset book
TurnFlagOFF       35          ;reset book
TurnFlagOFF       36          ;book now reset
DoneWithTurn
END_COMMAND

COMMAND TURN DIAL
AtLocation        141         ;in control room
FlagON            45          ;generator is working
FlagOFF           46          ;archway is off
PrintMessage      140         ;archway starts
TurnFlagON        46          ;archway now on
SwapLocations     255  256    ;move working archway in
TurnFlagON        43          ;room unsafe
DoneWithTurn
END_COMMAND

COMMAND TURN DIAL
AtLocation        141         ;in control room
FlagON            45          ;generator is working
FlagON            46          ;archway is on
PrintMessage      141         ;archway is turned off
TurnFlagOFF       46          ;archway off
SwapLocations     256  255    ;put non working arch in room
DoneWithTurn
END_COMMAND

COMMAND TURN DIAL
AtLocation        141         ;in control room
PrintMessage      152         ;nothing happens
DoneWithTurn
END_COMMAND

COMMAND TURN KNOB
AtLocation        168         ;in tiny room
FlagON            58          ;knob in door
PrintMessage      181         ;now in alcove
SwapLocations     288  289    ;put regular door here
TurnFlagOFF       58          ;shut flag down
GoToRoom          169         ;in alcove
DoneWithTurn
END_COMMAND

COMMAND TURN ANY
NOUNPresent                   ;noun is here
PrintMessage      236         ;can't do that
DoneWithTurn
END_COMMAND

COMMAND LOAD GUN
IsCarrying        235         ;has gun
IsCarrying        236         ;has bullet
PrintMessage      71          ;load gun
Destroy           236         ;get rid of bullet
TurnFlagON        23          ;loaded gun flag on
DoneWithTurn 
END_COMMAND

COMMAND SHOOT GUN AT WEREWOLF
AtLocation        69          ;at fountain
Present           308         ;werewolf is here
IsCarrying        235         ;has gun
FlagON            23          ;gun is loaded with silver bullet
PrintMessage      74          ;shoot werewolf
TurnFlagON        25          ;werewolf dead
Destroy           308         ;get rid of werewolf
TurnFlagOFF       23          ;reset gun flag
PlusScore         15          ;good job
DoneWithTurn  
END_COMMAND

COMMAND SHOOT WEREWOLF WITH GUN
ReDirectTo SHOOT GUN AT WEREWOLF
DoneWithTurn 
END_COMMAND

COMMAND SHOOT GUN AT ANY
ObjectPresent                ;object is here
PrintMessage      237         ;no good
DoneWithTurn  
END_COMMAND

COMMAND SHOOT ANY WITH GUN
NOUNPresent                   ;noun is here
PrintMessage      237         ;no good
DoneWithTurn      
END_COMMAND

COMMAND CAPTURE PIGEON
Present           306         ;pigeon is here
IsCarrying        237         ;has hatbox
IsCarrying        297         ;has birdseed
IsCarrying        298         ;has stick
PrintMessage      77          ;capture pigeon
SwapLocations     237  249    ;now has pigeon in box
SendToRoom        306  0      ;send pigeon to room 0
DropIt            249         ;drop box
DropIt            297         ;drop birdseed
DropIt            298         ;drop stick
DoneWithTurn                
END_COMMAND

COMMAND CAPTURE PIGEON
Present           306         ;pigeon is here
NOT Present       237         ;doesn't have hatbox
OR
NOT Present       297         ;does not have birdseed
OR
NOT Present       298         ;does not have stick
PrintMessage      78          ;fail to capture pigeon
DoneWithTurn                
END_COMMAND

COMMAND CAPTURE RAT
Present           320         ;rat is here
PrintMessage      107         ;secret door opens
GoToRoom          131         ;put player in work shop
PlusScore         5           ;good job
SendToRoom        396  51     ;put passage in delivery room
Destroy           320         ;get rid of rat
DoneWithTurn                 
END_COMMAND

COMMAND CAPTURE ANY
NOUNPresent                   ;noun is here
PrintMessage      230         ;how?
DoneWithTurn                  
END_COMMAND

COMMAND ROW BOAT
AtLocation        76          ;is in boat
IsCarrying        240         ;has oars
PrintMessage      84          ;cross lake
ChangePassageway  12   0      ;closepassage
GoToRoom          77          ;go to boat on beach
ChangePassageway  12   78     ;open passage
SendToRoom        296  78     ;send boat to room 78
DoneWithTurn                 
END_COMMAND

COMMAND ROW BOAT
AtLocation        77          ;is in boat
IsCarrying        240         ;has oars
PrintMessage      84          ;cross lake
Changepassageway  12   0      ;close passage here
GoToRoom          76          ;go to boat by dock
Changepassageway  12   74     ;open passage
SendToRoom        296  74     ;send boat to room 76
DoneWithTurn                 
END_COMMAND

COMMAND ROW BOAT
AtLocation        76          ;is in boat
OR
AtLocation        77
NOT Present       240         ;no oars
PrintMessage      85          ;dummy no oars
DoneWithTurn                  
END_COMMAND

COMMAND TOUCH WEB
AtLocation        90          ;at web
PrintMessage      92          ;web vibrates
FlagOFF           27          ;spider not already following
FlagOFF           26          ;spider is alive
BlankLine
PutInCurrentRoom  314         ;put spider in room
PrintMessage      93          ;spider eyes you
TurnFlagON        27          ;spider can follow
TurnCounterON     6           ;spider counter now activated
AddToGroup        314         ;spider now part of group
DoneWithTurn                 
END_COMMAND

COMMAND TOUCH ANY
NOUNPresent                  ;noun here
NOUNIsCreature       
PrintMessage      238        ;feels good
DoneWithTurn                
END_COMMAND

COMMAND GET SCEPTER
FlagOFF           28          ;scepter in web
PrintMessage      99          ;scepter stuck in web
ReDirectTo TOUCH WEB
END_COMMAND                   

COMMAND GET SCEPTER
FlagON            28          ;scepter free
FlagOFF           26          ;spider is still alive
PrintMessage      104         ;spider will not let you get scepter
DoneWithTurn                 
END_COMMAND

COMMAND GET BALL
AtLocation        112         ;in recreation room
IsNowhere         265         ;nine ball not here
PrintMessage      115         ;ask what ball to get
GetNumberInput    1    15     ;prompt for number
TurnFlagON        39          ;turn flag on for asking for ball
NumberEquals      9           ;gets right ball
TurnFlagOFF       39          ;correct answer
TurnFlagON        48          ;nine ball off table
PrintMessage      116         ;picks up right ball
GetIt             265         ;now carrying nine ball
DoneWithTurn                  
END_COMMAND

COMMAND GET BALL
FlagON            39          ;got wrong ball
IsCarrying        272         ;has a ball now
PrintMessage      117         ;already have a ball
DoneWithTurn                  
END_COMMAND

COMMAND GET BALL
FlagON            39          ;wrong ball number
IsNowhere         272         ;wron ball has not been gotten
PrintMessage      118         ;gets wrong ball
GetIt             272         ;picks up wrong ball
TurnFlagON        49          ;eight ball off table
DoneWithTurn                  
END_COMMAND

COMMAND GET ORB
AtLocation        142         ;in orb room
Present           281         ;orb in hole
PrintMessage      160         ;get orb from hole
SwapLocations     281  261    ;get regular orb
GetIt             261         ;pick up orb
TurnFlagOFF       51          ;reset orb flag
DoneWithTurn                  
END_COMMAND

COMMAND GET RING
AtLocation        141         ;in control room
Present           282         ;ring on console here
PrintMessage      165         ;takes ring from console
SwapLocations     234  282    ;put ring here
GetIt             234         ;pick up ring
TurnFlagOFF       52          ;console no longer protected
DoneWithTurn                 
END_COMMAND

COMMAND GET AMULET
FlagON            53          ;on swingset
FlagOFF           54          ;amulet not off yet
VariableGT        5    2      ;has found amulet
PrintMessage      173         ;fail to get amulet
TurnFlagOFF       53          ;reset swing
SetVariableTo     5    0      ;reset variable counter
SendToRoom        277  0      ;put amulet back in room 0
DoneWithTurn                 
END_COMMAND

COMMAND GET ANY
NOUNIsCreature               ;trying a creature
NOUNPresent                  ;creature is here
PrintMessage      155        ;can't get that
DoneWithTurn                 
END_COMMAND

COMMAND SWAT FLY
AtLocation        104         ;at fly area
Present           317         ;fly is here
PrintMessage      100         ;fly gets mad
TurnCounterON     7           ;fly counter on
AddToGroup        317         ;fly starts following
TurnFlagON        29          ;flag fly is following
DoneWithTurn                  
END_COMMAND

COMMAND SWAT ANY
NOUNPresent                   ;noun is here
PrintMessage      239         ;can't swat that
DoneWithTurn                 
END_COMMAND

COMMAND DROP LAMP
IsCarrying        218         ;has gas lamp
IsON              218         ;is lit
AtLocation        105         ;is at gate
TurnFlagON        32          ;lamp at proper place
DropIt            218         ;drops lamp
PrintMessage      231         ;drops at gate
DoneWithTurn                  
END_COMMAND

COMMAND DROP TALISMAN
FlagON            42          ;shadow is bond by it
NOT AtLocation    185         ;not in shrine
IsCarrying        283         ;has stone
PrintMessage      167         ;shadow now free
TurnFlagOFF       42          ;release shadow
TurnFlagOFF       41          ;no longer groupmember
SendToRoom        321  123    ;put shadow back in bedroom
DropIt            278         ;drop talisman
DoneWithTurn                 
END_COMMAND

COMMAND DROP VIAL
FlagON            55          ;following rat
IsCarrying        248         ;has vial
PrintMessage      176         ;rat takes vial and you follow
SendToRoom        248  199    ;send vial to nest
SendToRoom        325  199    ;send rat to nest
GoToRoom          199         ;send player to nest
TurnFlagOFF       55          ;shut following flag off
PlusScore         15          ;good job
DoneWithTurn                  
END_COMMAND

COMMAND DROP VIAL
AtLocation        100         ;in rat room
Present           325         ;rat is here
IsCarrying        248         ;has vial
FlagOFF           55          ;not following
PrintMessage      177         ;rat takes vial and flees
SendToRoom        325  199    ;send rat to nest
SendToRoom        248  199    ;put vial in nest
TurnCounterON     9           ;turn rat timer on
TurnFlagON        82          ;rat is hiding
DoneWithTurn                 
END_COMMAND

COMMAND DROP ANY
AtLocation        76          ;in boat
OR
AtLocation        77          ;in boat
PrintMessage      250         ;bad idea to drop items here
DoneWithTurn
END_COMMAND

COMMAND SHINE ORB AT PLAQUE
AtLocation        133         ;in office
IsCarrying        261         ;has orb
FlagOFF           38          ;secret passage is closed
PrintMessage      113         ;open secret passage
ChangePassageway  1    135    ;create a passageway
TurnFlagON        38          ;flag for secret pass is opened
Destroy           232         ;get rid of plaque
PutInCurrentRoom  358         ;put passage here
DoneWithTurn                 
END_COMMAND

COMMAND SHINE ANY AT PLAQUE
AtLocation        133         ;in office
NOUNIsCarrying                ;has noun
FlagOFF           38          ;plaque still here
PrintMessage      240         ;can't do it
DoneWithTurn                 
END_COMMAND

COMMAND PUT NINE BALL ON SHELF
AtLocation        107         ;in pantry
IsNowhere         273         ;key not found
IsCarrying        265         ;has nine ball
PrintMessage      119         ;ball rolls and find key
PutInCurrentRoom  273         ;put key in room
DropIt            265         ;put ball in room
PlusScore         15          ;good job
DoneWithTurn                 
END_COMMAND

COMMAND PUT POOL BALL ON SHELF
AtLocation        107         ;in pantry
IsNowhere         273         ;key not found
IsCarrying        272         ;has wrong ball
PrintMessage      120         ;ball falls of shelf
DropIt            272         ;put ball in room
DoneWithTurn                 
END_COMMAND

COMMAND PUT BALL ON SHELF
AtLocation        107         ;in pantry
IsSomewhere       273         ;key has been found
IsCarrying        272         ;has other ball
OR
IsCarrying        265         ;has nine ball
PrintMessage      121         ;ball rolls on shelf
DoneWithTurn                  
END_COMMAND

COMMAND PUT ORB IN HOLE
AtLocation        142         ;at apex
IsCarrying        261         ;has the orb
DropIt            261         ;drop orb
PrintMessage      158         ;put orb in hole
SwapLocations     261  281    ;get orb in hole
TurnFlagON        51          ;orb is set
IsNowhere         285         ;dull stone not present
PrintMessage      197         ;find full stone
PutInCurrentRoom  285         ;put stone in room
DoneWithTurn                  
END_COMMAND

COMMAND PUT ANY IN HOLE
AtLocation        142         ;at apex
FlagOFF           51          ;nothing in hole
NOUNIsCarrying                ;has any
PrintMessage      159         ;try to put any in hole
DoneWithTurn                  
END_COMMAND

COMMAND PUT RING ON CONSOLE
AtLocation        141         ;in control room
IsCarrying        234         ;has ring
OR
IsWearing         234
PrintMessage      163         ;put ring on console
TurnFlagON        52          ;console now protected
DropIt            234         ;drop ring
SwapLocations     234  282    ;get ring on counter
DoneWithTurn                  
END_COMMAND

COMMAND PUT ANY ON CONSOLE
AtLocation        141         ;in control room
NOUNIsCarrying                ;has any
PrintMessage      164         ;rolls of console
DoneWithTurn                  
END_COMMAND

COMMAND PUT CROSS ON ALTAR
AtLocation        170         ;in structure room
IsCarrying        206         ;has cross
PrintMessage      179         ;find door knob
PutInCurrentRoom  287         ;put knob in roo
GetIt             287         ;get knob
DropIt            206         ;drop cross
GoToRoom          142         ;send player to chamber
PlusScore         20          ;good job
TurnFlagON        57          ;cross is in position
DoneWithTurn                 
END_COMMAND

COMMAND PUT KNOB ON DOOR
AtLocation        168         ;in tiny room
IsCarrying        287         ;has knob
PrintMessage      180         ;put knob on door
TurnFlagON        58          ;knob on door
SwapLocations     288  289    ;door with knob no here
SendToRoom        287  42     ;hide knob
DoneWithTurn                  
END_COMMAND

COMMAND PUT SCEPTER ON PEDESTAL
AtLocation        169         ;in alcove
IsCarrying        252         ;has scepter
PrintMessage      182         ;find umbrella
DropIt            252         ;drop scepter
PutInCurrentRoom  291         ;put umbrella in room
GetIt             291         ;pick up umbrella
TurnFlagON        59          ;scepter in place
GoToRoom          142         ;send player back to chamber
PlusScore         20          ;good job
DoneWithTurn                  
END_COMMAND

COMMAND PUT AMULET ON STAND
AtLocation        198         ;in sepulcher room
IsCarrying        277         ;has amulet
PrintMessage      187         ;put amulet on table
DropIt            277         ;drop amulet
PutInCurrentRoom  293         ;horn
GetIt             293         ;get horn
TurnFlagON        60          ;amulet in place
GoToRoom          142         ;send player back to chamber
PlusScore         20          ;good job
DoneWithTurn                  
END_COMMAND

COMMAND PUT RING ON FINGER
AtLocation        155         ;in hand room
IsCarrying        234         ;has ring
PrintMessage      191         ;ring on the finger
DropIt            234         ;drop ring
GoToRoom          142         ;put player back in chamber
TurnFlagON        63          ;ring in place
PlusScore         20          ;good job
DoneWithTurn                  
END_COMMAND

COMMAND PUSH BUTTON
AtLocation        141         ;at control room
FlagON            44          ;console unlocked
PrintMessage      137         ;everything stops
TurnFlagOFF       45          ;generator down
TurnFlagOFF       46          ;archway off
TurnFlagOFF       47          ;purger off
TurnCounterOFF    8           ;purger timer off
SendToRoom        255  140    ;put non working arch in lab
SendToRoom        256  0      ;put working arch in room 0
DoneWithTurn                  
END_COMMAND

COMMAND PUSH BUTTON
AtLocation        141         ;in control room
PrintMessage      152         ;nothing happens
DoneWithTurn                  
END_COMMAND

COMMAND PRY TRUNK
Present           274         ;trunk is here
IsCarrying        275         ;has prybar
Present           322         ;bat is here
PrintMessage      122         ;bat prevents trunk from being open
DoneWithTurn                  
END_COMMAND

COMMAND PRY TRUNK
Present           274         ;trunk is here
IsCarrying        275         ;has prybar
FlagOFF           40          ;trunk not open
PrintMessage      123         ;opens trunk 
TurnFlagOn        40          ;trunk now open
DoneWithTurn                  
END_COMMAND

COMMAND PRY ANY
NOUNPresent                   ;noun is here
PrintMessage      241         ;can't pry
DoneWithTurn                  
END_COMMAND

COMMAND FLIP SWITCH
AtLocation        141         ;in control room
FlagOFF           45          ;generator not on
FlagON            44          ;console unlocked
PrintMessage      139         ;generator starts
TurnFlagON        45          ;generator flag on
DoneWithTurn                  
END_COMMAND

COMMAND FLIP SWITCH
AtLocation        141         ;in control room
FlagON            45          ;generator is on
PrintMessage      138         ;generator stops
TurnFlagOFF       45          ;shut generator down
TurnFlagOFF       46          ;shut arch off
SendToRoom        255  140    ;put nonworking arch in lab
SendToRoom        256  0      ;put working arch in room 0
DoneWithTurn                 
END_COMMAND

COMMAND FLIP SWITCH
AtLocation        141         ;in control room
PrintMessage      152         ;nothing happens
DoneWithTurn                  
END_COMMAND

COMMAND SLIDE LEVER
AtLocation        141         ;at control room
FlagOFF           47          ;purger is off
FlagON            43          ;room unsafe
PrintMessage      153         ;purger starts
TurnFlagON        47          ;purger is now on
TurnCounterON     8           ;start purge timer
DoneWithTurn                  
END_COMMAND

COMMAND SLIDE LEVER
AtLocation        141         ;at control room
FlagON            47          ;purger is on
FlagON            43          ;room is unsafe
PrintMessage      154         ;purger stops
TurnCounterOFF    8           ;shut timer off
TurnFlagOFF       47          ;purger shut down
DoneWithTurn                  
END_COMMAND

COMMAND SLIDE LEVER
AtLocation        141         ;at control room
PrintMessage      152         ;nothing happens
DoneWithTurn                  
END_COMMAND

COMMAND SWING
FlagOn            53          ;on swing set
LoadWeightGT      10          ;too heavy to swing
PrintMessage      196         ;can't swing
DoneWithTurn                  
END_COMMAND

COMMAND SWING
FlagON            53          ;onswingset
AddToVariable     5    1      ;increase variable by one
VariableEquals    5    1      ;one swing
PrintMessage      169         ;first swing
DoneWithTurn                  
END_COMMAND

COMMAND SWING
FlagON            53          ;on swingset
VariableEquals    5    2      ;second swing
PrintMessage      170         ;second swing
DoneWithTurn                  
END_COMMAND

COMMAND SWING
FlagON            53          ;on swingset
VariableGT        5    2      ;swung more than twice
FlagOFF           54          ;amulet not found yet
PrintMessage      171         ;find amulet
PutInCurrentRoom  277         ;put amulet here
PlusScore         20          ;good job
DoneWithTurn                  
END_COMMAND

COMMAND SWING
FlagON            53          ;on swingset
VariableGT        5    2      ;more than two swings
FlagON            54          ;amulet found
PrintMessage      172         ;having fun
DoneWithTurn                  
END_COMMAND

COMMAND KICK AMULET
FlagON            53          ;on swingset
FlagOFF           54          ;amulet still in tree
VariableGT        5    2      ;can be kicked
PrintMessage      174         ;kick amulet
TurnFlagON        54          ;amulet now out of tree
DoneWithTurn                  
END_COMMAND

COMMAND THROW STONE AT STRUCTURE
AtLocation        172         ;in void with structure
IsCarrying        285         ;has stone
PrintMessage      178         ;structure swallows you up.
SendToRoom        285   42    ;get rid of stone
GoToRoom          170         ;put player inside structure
DoneWithTurn                  
END_COMMAND

COMMAND THROW LAMP AT GATE
ReDirectTo DROP LAMP
END_COMMAND                   

COMMAND THROW ANY AT ANY
ObjectIsCreature              ;creature here
ObjectPresent                 ;creatrue here
NOUNPresent                   ;noun is here
PrintMessage      242         ;can't do that
DoneWithTurn                  
END_COMMAND

COMMAND JUMP
AtLocation        190         ;on the island
IsCarrying        291         ;has umbrella
IsClosed          291         ;umbrella closed
PrintMessage      183         ;jumping
GoToRoom          195         ;go to pit
DoneWithTurn                  
END_COMMAND

COMMAND JUMP
AtLocation        190         ;at island
NOT IsCarrying    291         ;does not have umbrella
PrintMessage      183         ;jumping
GoToRoom          195         ;go to pit
DoneWithTurn                  
END_COMMAND

COMMAND JUMP
AtLocation        190         ;at island
IsCarrying        291         ;has umbrella
IsOpen            291         ;umbrella open
PrintMessage      184         ;blown back up
DoneWithTurn                  
END_COMMAND

COMMAND JUMP
PrintMessage      243         ;fun jumping
DoneWithTurn                  
END_COMMAND

COMMAND BLOW HORN
AtLocation        184         ;in pulsating room
IsCarrying        293         ;has horn
PrintMessage      188         ;blows horn
SendToRoom        293  42     ;hide horn
GoToRoom          185         ;put in shrine
DoneWithTurn                  
END_COMMAND

COMMAND TALK TO ANY ABOUT ANY
NOUNPresent                   ;creature is here
PrintMessage      244         ;little foolish
DoneWithTurn                  
END_COMMAND

COMMAND TELL ANY ABOUT ANY
NOUNPresent                   ;creature is here
PrintMessage      244         ;little foolish
DoneWithTurn                  
END_COMMAND

COMMAND ASK ANY ABOUT ANY
NOUNPresent                   ;creature is here
PrintMessage      244         ;little foolish
DoneWithTurn                 
END_COMMAND

COMMAND ATTACK ANY
NOUNPresent                   ;creature is here
PrintMessage      245         ;sure
DoneWithTurn                 
END_COMMAND

COMMAND PRAY
AtLocation        27          ;at church
OR
AtLocation        56          ;at pulpit
PrintMessage      246         ;pray in church
DoneWithTurn                  
END_COMMAND

COMMAND PRAY
PrintMessage      247         ;praying
DoneWithTurn                  
END_COMMAND

COMMAND FEED ANY
NOUNIsCreature                ;try to feed something
PrintMessage      249         ;can't feed tthat
DoneWithTurn                  
END_COMMAND

COMMAND FILL LAMP WITH KEROSENE
Atlocation        12          ;routine to fill lamp with kerosene
IsCarrying        207         ;has unlit lamp
FlagOFF           5           ;Lamp is not already filled fuel
FlagOFF           6           ;      "
FlagON            3           ;gas pumps are working
PrintMessage      21          ;lamp filled
TurnFlagON        5           ;lamp filled flag on
DoneWithTurn                  
END_COMMAND

COMMAND FILL LAMP WITH KEROSENE
AtLocation        12          ;at gas station
IsCarrying        207         ;has lamp
FlagON            6           ;lamp has gas
OR
FlagON            5           ;lamp has kerosene
PrintMessage      248         ;already have fuel in lamp
DoneWithTurn                  
END_COMMAND

COMMAND FILL LAMP WITH GASOLINE
AtLocation        12          ;at gas station
IsCarrying        207         ;has lamp
FlagON            6           ;lamp has gas
OR
FlagON            5           ;lamp has kerosene
PrintMessage      248         ;already have fuel in lamp
DoneWithTurn                  
END_COMMAND

COMMAND FILL LAMP WITH GASOLINE
AtLocation        12          ;routine to fill lamp with gas
IsCarrying        207         ;has lamp
FlagOFF           6           ;lamp not filled already
FlagOFF           5           ;            "
FlagON            3           ;gas pump is working
PrintMessage      22          ;lamp filled 
TurnFlagON        6           ;lamp filled flag on
DoneWithTurn                 
END_COMMAND

COMMAND FILL LAMP WITH ANY
ObjectPresent
PrintMessage      221         ;can't do that
DoneWithTurn                  
END_COMMAND


